00010 



XLIST 



PTRSER - PAPER TAPE READER SERVICE ROUTINE 



PAGE 2 



01970 
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00040 

00050 EXTERNAL WSYNC, STOSQD, ILLOUT 

00060 EXTERNAL STODAT, IOSET, SETBYT, CKS12, ADVBEE 

00070 EXTERNAL SETIOD, PTRSAV, PTRCHN, PTRRET , P IOMOD 

00080 INTERNAL PTRINT 

00090 

00100 ;PTR DEVICE DATA BLOCK LINKAGE 

00110 

00120 EXTERNAL PTRDB , PTRDAT , PTRCHR, PTRIOS, PTRSER, PTRMOD, PTRBUE 

00130 EXTERNAL pTRADR, pTRpTR, pTRCTR, pTRSVC, pTRSVl 

00140 ENTRY PTRDSP 
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00150 

00160 .PARAMETER ASSIGNMENTS 

00170 , PTR CONTROL REGISTER 

00180 PTRDON=10; DONE FLAG 

00190 PTRBSY=20J BUSY FLAG 

00200 PTRBIN=40; BINARY READ MODE 

00210 POW=400; POWER. ON=l 

00220 

00230 , SPECIAL 10 STATUS WORD ASSIGNMENTS 

00240 PTRERR=2000 

00250 PTRFCI=200000 

00260 PTRPOW=100000 

00270 , SPECIAL ASCII CHARACTERS 

00280 NULL=200 

00290 RUB0UT=377 

00300 S2E0F=232; END OF FILE 

00310 , PI CONTROL REGISTER 

00320 PION=200 

00330 PIOFF=400 

00340 

00350 REPEAT 0,< 

00360 ,PTR DATA BLOCK 

00370 PTRDAT: SIXBIT "PTR" 

00380 PTRCHR: 41 

00390 PTRIOS: 

00400 PTRSER: EXP PTRDSP 

00410 PTRMOO: XWD 1000+PROG , 10403 

00420 

00430 PTRBUF: 

00440 PTRADR: XWD PROG,0 

00450 PTRPTR: 

00460 PTRCTR: 

00470 PTRSVC: 

00480 PTRSVU 

00490 > 

00500 

00510 ,PTR SERVICE DISPATCH TABLE 

00520 

000000 254000 000134' 00530 PTRDSP: JRST PTRREL JRELEASE 

000001 263140 000000 00540 POPJ PDP,J CLOSE 

000002 254000 000000 00550 JRST ILLOUT ;OUTPUT 

000003 254000 000004' 00560 JRST PTRINP5 INPUT 

00570 
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00580 
00590 

00600 




000004 


607000 


000002 


00610 


ptrinp: 


000005 


254000 


000013' 


00620 




000006 


661000 


000004 


00630 




000007 


260140 


000000 


00640 
00650 


» 


000010 


202040 


000000 


00660 




000011 


710700 


000400 


00670 




000012 


661000 


100000 


00680 




000013 


660000 


010000 


00690 


PTRINi: 


000014 


135040 


000000 


00700 




000015 


201100 


00000M 


00710 




000016 


306040 


000014 


00720 




000017 


271100 


000040 


00730 




000020 


201040 


000010 


00740 




000021 


542040 


000032' 


00750 




000022 


627000 


000002 


00760 




000023 


254000 


000027' 


00770 




000024 


202000 


000000 


00780 




000025 


710602 


000020 


00790 




000026 


263140 


000000 


00800 
00810 




000027 


202000 


000024' 


00820 


PTRIN4: 


000030 


710602 


000010 


00830 




000031 


263140 


000000 


00840 
00850 





PAGE 5 



TLNN IOS,IOBEG; 
JRST PTRINi; 
TLO IOS.IOEST; 
PUSHJ PDP.SETBYTJ 



MOVEM tac.ptrptr; 
consz ptr.pow; 
tlo ios,ptrpow; 
tro ios,ioact; 
ldb tac.piomoo 
movei tac1. ptrchn; 

CAIN TACBi 

ADOI taci.ptrbin; 

MOVEI TACPTRDON 
HRRM TACPTRINT 

TLZN ios,iobeg; 

JRST PTRIN4; 
MOVEM IOS.PTRIOS; 
CONO PTR,PTRBSY(TAC1) 
POPJ PDP, ; 



MOVEM IOS.PTRIOS? 
CONO PTR,PTRDON(TACl) 
POPJ PDP, 



VIRGIN DEVICE? ( IOBEG=l?) 

NO 
IOFST:=l. NEXT ITEM WILL BE FIRST ITEM 
TAC0-5:=TAC12-13:=0,TAC6-li:=BYTE SIZE 

TAC14-17:=PR0G 

PTRPTR:=C(TAC) 

IS POWER ON? 

YES. PTRPOW!=l 

IOACT:=l 



TACi:=PTR PI CHANNEL ASSIGNME 
MODE=BINARY? 

YES. ALPHA/BINARYtsBINARY 
;SET CONSO INTERRUPT FLAG 



VIRGIN DEVICE? ( IOBEG=l?) 

NO 

PTRIOS:sC( IOS) 

PTR BUSY FLAG!=1, ASSIGN INTER 

INPUT RETURN-VIRGIN DEVICE 



PTRIOS:=C(IOS) 

PTR DONE FLAG:*1, ASSIGN 



INTER 
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000032 
000033 
000034 
000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000060 

000061 
000062 
000063 
000064 

000065 
000066 
000067 
000070 
000071 
000072 
000073 
000074 



710740 
254000 
331000 
710440 
264000 
201300 
260140 
200000 
200240 
710740 
254000 
667000 
254000 
623000 
254000 
623000 
200240 
602000 
254000 
302240 
306240 
254000 
322240 



000010 

000032' 

000027' 

000000 

000000 

000000 

000000 

000034' 

000035' 

000400 

000075' 

100000 

000131' 

400000 

000121' 

200000 

000000 

000014 

000061' 

000200 

000377 

000131' 

000131' 



260140 000000 
255000 000000 
254000 000065' 
254000 000131' 

260140 000000 

661000 400000 

602000 000040 

661000 400000 

661000 000004 

623000 000001 

260140 000000 

254000 000131' 



00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 



PTRINT: CONSO PTR.PTROON 
JRST PTRINT 
SKIPL PTRIOS 
DATAI PTR.PTRSV1 
JSR PTRSAV 
MOVEI DEVDAT,PTRDAT 
PUSHJ PDP, IOSET 
MOVE IOS, PTRIOS 
MOVE DAT,PTRSV1 
CONSO PTR.POW 
JRST PTREND 
TLON IOS,PTRPOW 
JRST PTREX1 
TLZE IOS.IODISC 
JRST PTREX 
TLZE IOS,PTRFCI 
MOVE DAT,PTRSVC 

PTRIN0: TRNE IOS,B 
JRST PTRI0 
CAIE DAT, NULL 
CAIN DAT.RUBOUT 
JRST PTREX1 
JUMPE DAT.PTREX1 

PTRI0: PUSHJ PDP.STODAT 

JECL {CHECKSUM 
JRST PTRI1 
JRST PTREX1 

PTRIi: PUSHJ PDP.ADVBFF 

TLO ios.iodisc; 

TRNE IOS.IOCON; 

TLO ios.iodisc; 
ptri2: tlo ios.iofst; 
tlze ios, iow; 
pushj pdp.setiod; 
jrst ptrex1 



{INTERRUPT. IS DONE FLAG = 1? 

;NO. IF PTR IS IN FLAG LIST, THIS LOC 

DISCONNECT REQUEST? (IODISC*!?) 

;PTRSVi: = DATA WORD 

;SAVE ACCUMULATORS AND ESTABLISH PDP 

;DEVDAT: = PTR SIXBIT 

;PR0G:=C(JBTADR18-35),ITEM:sC(DEVCTR) 

mos:=c(ptrios) 

;dat:=c(ptrsvd 

;ptr power on? 

;NO 

;PTRPOW=l? PTRPOW:=l 

;no 



ms ptrfci = 1? 

;yes. dat:=c(ptrsvo 

;mode=binary? 

* YES 

;last character null or rubout? 

;yes 
;dat=0? 

;no store data word. 

ERROR 

;block full or block complete 
;data stored correctly. 



{ADVANCE BUFFER 
NEXT BUFFER IS FULL. 
NEXT BUFFER IS EMPTY. 
NON-CONT. OPERATION. 
IOFST:=l. NEXT ITEM 
IN A WAIT? IOW:=0 
IOWS:=l 



IODISC:=l 

CONTINUOUS? (IOC 
IODISC:=l 
IS FIRST ITEM OF A 
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000075 630000 000137' 

000076 260140 000134' 

000077 135040 000014' 

000100 661000 00004??! 

000101 602040 000014 

000102 254000 000114' 

000103 201240 000232 

000104 260140 000061' 

000105 254000 000062' 

000106 254000 000111' 

000107 260140 000000 

000110 330000 000000 

000111 260140 000065' 

000112 330000 000000 

000113 254000 000071' 

000114 302040 000014 

000115 254000 000107' 

000116 607000 000004 

000117 660000 002000 
000120 254000 000071' 



01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 



.COME HERE WHEN THE READER IS SHUT OFF 



PTRENO: 



PTREI 



PTREIR: 



TDZ IOS.CXWD PTRPOW, 
PUSHJ PDP.PTRREL 
LDB TAC.PIOMOn 
TLO IOS.IOEND 
TRNE TAC8 
JRST PTREIB 
MOVEI DAT.S2E0F; 
PUSHJ PDP.STOOAT 
JRST PTRI0+1 
JRST .+3 ;block 
PUSHJ PDP.STOSQO; 



IOACT3 JPTRPOW:=0,IOACT: 
;CLEAR PTR AND CONSO FLAG 



SKIP 

PUSHJ PDP.ADVBFF 

SKIP 

JRST PTRI2 

CAIE TACB 
JRST PTREI 
TLNN IOS.IOFST 
TRO IOS.PTRERR 
JRST PTRI2 



; ioend:=i 

;mode=a.al 

;no 

EOF CHAR 

;STORE DATA WORD 
CHECKSUM ERROR 
FULL OR BLOCK COMPLETE 
FINISH THIS BUFFER, 

ADVANCE BUFFER 



STORE WORD COUNT 



;mode=binary? 

;no 

MOFST = l? 

;no. ptrerr:: 



BINARY BLOCK INCOMPLE 
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01510 

01520 

01530 .DISCONNECT PTR 

000121 337020 000000 01540 PTREX: SKIPG 0PTRADR ;I0USE=1? 
(7)00122 254000 000125' 01550 JRST PTREX0 JYES. 

000123 710440 000042' 01560 DATAI PTR.PTRSV1 

000124 254000 000053' 01570 JRST PTRIN0 

01580 

000125 710440 000052' 01590 PTREX0: DATAI PTR,PTRSVC ;SAVE LAST DATA WORD FROM PTR 

000126 260140 000134' 01600 PUSHJ PDP,PTRREL 5CLEAR PTR AND CONSO FLAG 

000127 661000 200000 01610 TLO IOS.PTRFCI JPTRFCI:=1 

000130 620000 010000 01620 TRZ IOS.IOACT MOACT:=0 

01630 

000131 202200 000000 01640 PTREXi: MOVEM ITEM.PTRCTR J PTRCTR : =C( I TEM ) 

000132 202000 000041' 01650 MOVEM IOS.PTRIOS ; PTR I OS : =C ( I OS ) 

000133 254000 000000 01660 JRST PTRRET ;RESTORE ACCUMULATORS AND DISMISS INTER 

01670 

01680 INTERNAL PTRINI 

01690 

01700 PTRINI: 

000134 710600 000000 01710 PTRREL: CONO PTR,0 ;CLEAR PTR CONTROL 

000135 513000 000032' 01720 HLL2S PTRINT ;CLEAR CONSO FLAG 

000136 263140 000000 01730 POPJ POP, 

01740 

000137 100000 010000 01750 END, 

THFRE ARE NO ERRORS 
PROGRAM BREAK IS 000140 
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A 

AC1 

AC2 

AC3 

ADVBEF 

AL 

ASSCON 

ASSPRG 

R 

RUFPNT 

RUEWRD 

CKS12 

CLOSP 

CLSIN 

CLSOUT 

D 

DAT 

DCL 

DCW 

DDI 

DDO 

DDTMEM 

DDTSYM 

DEN 

DEVADR 

DEVBUF 

DEVCHR 

DEVCTR 

DEVDAT 

DEVIAD 

DEVIOS 

DEVLOG 

DEVMOD 

DEVNAM 

DEVOAD 

DEVPTR 

DEVSER 

DGF 

DIN 

DLK 

DOU 

DR 

DRL 

DSI 

DSO 

DTW 

DVAVAL 

DVCDR 

DVDIR 

DVDIRI 

OVIN 

DVLPT 

DVMTA 

DVOUT 

DVTTY 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000111' 


FXT 


000001 


INT 


400000 


INT 


200000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


000000 


FXT 


002000 


INT 


000002 


INT 


000001 


INT 


000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


W00007 


INT 


000002 


INT 


000005 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


040000 


INT 


000040 


INT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 
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ENTRB 

I 

IB 

IBUEB 

ILLOUT 

INITR 

INPB 

10 

IOACT 

IOREG 

IORKTL 

IOCON 

IODEND 

IODERR 

IODISC 

IODONE 

IODTER 

IOFND 

IOFST 

IOIMPM 

IONRCK 

IORDEL 

IORET 

IOS 

IOSET 

IOSTRT 

IOUSE 

IOW 

IOWC 

IOWS 

ITFM 

JBFADR 

JBFCTR 

JBEPTR 

JBUF 

JDAT 

JERR 

JIOW 

JNA 

LOOKR 

MTW 

NULL 

OBUFB 

OUTPB 

PDP 

PICHN 

PIOFR 

PIOMOD 

PION 

POW 

PROG 

PTRAOR 

PTRBIN 

PTRBSY 

PTRBUF 



E READER 


SERVICE ROUTINE 


020000 


INT 


000010 


TNT 


000013 


INT 


200000 


INT 


000002' 


EXT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


INT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000100 


INT 


000100 


INT 


000020 


INT 


000000 


INT 


000040' 


FXT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


040000 


INT 


010000 


INT 


000200 




100000 


INT 


004000 


INT 


000003 


INT 


000100 


INT 


000400 




000077' 


FXT 


000200 




000400 




000007 


INT 


000121' 


• FXT 


000040 




000020 




000000 


FXT 
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PTRCHN 

PTRCHR 

PTRCTR 

PTRDAT 

PTRDB 

PTRDON 

PTPDSP 

PTREI 

PTPEIB 

PTREND 

PTPERR 

PTREX 

PTREX0 

PTREX1 

PTRECI 

PTRI0 

PTRI1 

PTRI2 

PTRIN0 

PTRIN1 

PTRIN4 

PTRINI 

PTRINP 

PTRINT 

PTPIOS 

PTRMOO 

PTRPOW 

PTRPTR 

PTRRFL 

PTRRFT 

PTRSAV 

PTRSER 

PTRSV1 

PTRSVC 

RUROUT 

RUN 

RUNABL 

S2E0E 

SETBYT 

SETIOD 

STODAT 

STOSOD 

TAC 

TAC1 

TEM 

TTYATC 

TTYUSE 

USRMOD 

UUO 

WSYNC 



000015' 

000000 

000131* 

000037' 

000000 

000010 

000000' 

000107' 

000114' 

000075' 

002000 

000121' 

000125' 

000131' 

200000 

000061' 

000065' 

000071' 

000053' 

000013' 

000027' 

000134' 

000004' 

000032' 

000132* 

000000 
1 00000 
000010' 

000134' 
000133' 
000036' 

000000 

000123' 

000125' 

000377 

200000 

204000 

000232 

000007' 

000073* 

000104' 

000107' 

000001 

000002 

000010 

020000 

010000 

010000 

000014 

000000 



EXT 
EXT 
EXT 
EXT 
FXT 

INT 



INT 

INT 
FXT 
FXT 

FXT 

FXT 
FXT 
EXT 
FXT 
EXT 

INT 
INT 

EXT 
EXT 
FXT 
EXT 
INT 
TNT 
INT 
INT 
INT 
INT 
INT 
EXT 



END OF ASSEMBLY 



